home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / demo / kushida / 81.bas < prev    next >
BASIC Source File  |  1995-02-03  |  9KB  |  165 lines
  1. 10 PLAY OFF
  2. 20 LOAD@ "ED02.FMB" : LOAD@ "ED06.PMB"
  3. 30 CLS 1 : COLOR 5 : PRINT "NEURAL BIT MAP"
  4. 40 S$="%CQ8T135" : PLAY S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$
  5. 50 '
  6. 60 '
  7. 70 '
  8. 80 AL$="@77V7O3L16Q8" : AR$=AL$+"V2" 
  9. 90 A1L$=AL$+"   >C#RR<F#RRAR R4RRF#A >C#RR<F#RRAR R4A4"
  10. 100 A1R$=AR$+"R8 >C#RR<F#RRAR R4RRF#A >C#RR<F#RRAR R8E4"
  11. 110 A1E$=AL$+"    BRRERRGR RRRRRREG BRRERRGR RRRRARBR"
  12. 120 A1F$=AR$+"R8  BRRERRGR RRRRRREG BRRERRGR RRRRAR  "
  13. 130 A2L$=AL$+"   >C#RRDRRC#RRR<ARF#RAR >C#RRDRRC#RRR<AR>F#R<BR"
  14. 140 A2R$=AR$+"R8 >C#RRDRRC#RRR<ARF#RAR >C#RRDRRC#RRR<AR>F#R<"
  15. 150 A2E$=AL$+"   >CRRRRRCR<ARRRBR>CR RRRRCRR<C> DRRRCRRR"
  16. 160 A2F$=AR$+"R8 >CRRCRRCR<ARRRBR>CR RCRRCR    <BRRRARRR"
  17. 170 A2G$=AL$+"   >CRRRRRCR<ARRRBR>CR R2 <@96V3 ERFRGRAR"
  18. 180 A2H$=AR$+"R8 >CRRCRRCR<ARRRBR>CR R2 <@96V1 ERFRGR  "
  19. 190 A3L$="@119V6O4L16%R5   <E>EREREERDEEEREER >E<ARARAARGAGBRAGD"
  20. 200 A3R$="@119V3O4L16%L5R8 <E>EREREERDEEEREER >E<ARARAARGAGBRA  "
  21. 210 A3E$="@119V9O3L16%R5   (B>B<)(E>E<)E>EDER<E>ED(<B>C)DDR(<B>CR)<B>C<B"
  22. 220 A3F$="@119V5O3L16%L5R8 (B>B<)(E>E<)E>EDER<E>ED(<B>C)DDR(<B>CR)<B>   "
  23. 230 A3G$="@119V9O3L16%R5   (BRB>BRB<B>B<)> AREGRDERCDR<A>BRBR"
  24. 240 A3H$="@119V5O3L16%L5R8 (BRB>BRB<B>B<)> AREGRDERCDR<A>BR  "
  25. 250 A3I$="@119V7O3L16%R5    A1"
  26. 260 A3J$="@119V6O3L16%L5    ERR[[[A"
  27. 270 '
  28. 280 C1L$="@58V6O3L16Q1%R9  AB>E<RARB>ERE<ARBRAG#AB>E<RARB>ERE<ARBR>C<AQ8"
  29. 290 C1R$="@58V4O3L16Q1%L9R8AB>E<RARB>ERE<ARBRAG#AB>E<RARB>ERE<ARBR    Q8"
  30. 300 C1E$="@58V6O3L16Q1%R9  AB>E<RARB>ERE<ARBR>C<A <A8RRA4>REGAR>E<RG Q8"
  31. 310 C1F$="@58V4O3L16Q1%L9R8AB>E<RARB>ERE<ARBR>C<A <A8RRA4>REGAR>E<   Q8"
  32. 320 C2L$="@101V6O2L16%C  >C#1&C#1" : C2E$="@101V6O2L16%C  >E1&E1 "
  33. 330 C2R$="@101V6O2L16%R3  A1 &A1 " : C2F$="@101V6O2L16%R3 >C1&C1 "
  34. 340 C2C$="@101V6O2L16%L3  F#1&F#1" : C2G$="@101V6O2L16%L3  A1&A1 "
  35. 350 C2H$="@101V6O2L16%C  >E1 E@1RRRR2< @101B RRR"
  36. 360 C2I$="@101V6O2L16%R3 >C1 C@1RRRR2< @101G#RRR"
  37. 370 C2J$="@101V6O2L16%L3  A1 A@1RRRR2  @101E RRR"
  38. 380 C3L$="@39V6O3L16Q4%L9  <R4>A<ARR>B<RRGRR>ER<RRR>B<ARR>A<ARRGA8B8 Q8"
  39. 390 C3R$="@39V4O3L16Q4%R9R8<R4>A<ARR>B<RRGRR>ER<RRR>B<ARR>A<ARRGA8   Q8"
  40. 400 C3E$="@39V6O3L16Q4%L9  <R4>A<ARR>B<RRGRR>ER<RA4>ARR>BRRERRGR Q8"
  41. 410 C3F$="@39V4O3L16Q4%R9R8<R4>A<ARR>B<RRGRR>ER<RA4>ARR>BRRERR   Q8"
  42. 420 C3G$="@39V5O3L16Q4%L9   <A>RRBRGRRERRGRR>DR RRE<BRABRGAREG>D<B Q8"
  43. 430 C3H$="@39V3O3L16Q4%R9R8 <A>RRBRGRRERRGRR>DR RRE<BRABRGAREG     Q8"
  44. 440 C3I$="@39V5O3L16Q4%L9   <A>RRBRGRRERRGRR>DR R2R4Q8 @101V5<<B4 "
  45. 450 C3J$="@39V3O3L16Q4%R9R8 <A>RRBRGRRERRGRR>DR R2R8Q8 @101V5<<G4 "
  46. 460 C4L$="@96V3O4L16Q1%L2   <A>DRRERRRRRRBRRAG# <A>RRRDRRR<E>ERE>E Q8"
  47. 470 C4R$="@96V1O4L16Q1%R2R8 <A>DRRERRRRRRBRRAG# <A>RRRDRRR<E>ERE>E Q8"
  48. 480 C4E$="@96V3O4L16Q1%L2   RARRERR<C>BRR>BRRRR< RCRRREARBRRDRRER  Q8"
  49. 490 C4F$="@96V1O4L16Q1%R2R8 RARRERR<C>BRR>BRRRR< RCRRREARBRRDRR    Q8"
  50. 500 C5L$="@60V6O3L16Q8%L2   RRBRRRBRREBRRRBR RRBRREBR<B>EBRR>E<BR "
  51. 510 C5R$="@60V2O3L16Q8%R2R8 RRBRRRBRREBRRRBR RRBRREBR<B>EBRR>E<   "
  52. 520 C5E$="@60V7O3L16Q8%L2   RBRR>BRRGARRGRREG >B<EGRBRR<B>DRARBRDR"
  53. 530 C5F$="@60V3O3L16Q8%R2R8 RBRR>BRRGARRGRREG >B<EGRBRR<B>DRARBR"
  54. 540 C5G$="@60V7O3L16Q8%L2   (E>B<)B8(E>G<)B8E>B<B8 (E>B<)B8(E>E<)B8>D8E8"
  55. 550 C5H$="@60V6O3L16Q8%R2R8 (E>G<)B8(E>B<)B8E>B<B8 (E>G<)B8(E>B<)B8>D8  "
  56. 560 C5I$="@60V7O3L16Q8%L2   (E>B<)B8(E>G<)B8E>B<B8 (E>E8<])4A>E<E24B64>B"
  57. 570 C5J$="@60V6O3L16Q8%R2R8 (E>G<)B8(E>B<)B8E>B<B8 (E>E8<])4A>E<        "
  58. 580 E1L$="@96V3O4L16%R6Q1   <ER>ERA8GA<A>ERGA8GA<ER>ERA8GA<B>ARAB8AG#Q8"
  59. 590 E1R$="@96V1O4L16%L6Q1R8 <ER>ERA8GA<A>ERGA8GA<ER>ERA8GA<B>ARAB8   Q8" 
  60. 600 E1E$="@96V3O4L16%R6Q1   (<ER>ER)4(<DR>DR)<GR>GR<AR>AR Q8"
  61. 610 E1F$="@96V1O4L16%L6Q1R8 (<ER>ER)4(<DR>DR)<GR>GR<AR>   Q8"
  62. 620 E1G$="@96V3O4L16%R6Q1   <ERR>E"
  63. 630 E1H$="@96V1O4L16%L6Q1R8 <ERR>E" : E$="@59V5O3L16Q1"
  64. 640 E2L$=E$+"    RBRR>BR@6C@59GARRGR@5C@59EG>B<EGRBR@5B@59<B>DRARBRDRQ8"
  65. 650 E2R$=E$+"R8V2RBRR>BR@6C@59GARRGR@5C@59EG>B<EGRBR@5B@59<B>DRARBR  Q8"
  66. 660 E2E$=E$+"    RBRR>BR@6C@59GARRGR(E[ER)4 RERERQ8"
  67. 670 E2F$=E$+"R8V2RBRR>BR@6C@59GARRGR(E[ER)4 RER  Q8"
  68. 680 B$="@77V11O1L16" 
  69. 690 B1$ =B$+"@60O3V9 RRERER R<A>ERER<A8>C8 RDERER R<A>ERER<A8>C8"
  70. 700 B1E$=B$+"@60O3V9 RRERER R<A>ERER<A8>C8 @77O1 RRERRERR E>E<ER>E4"
  71. 710 B2$ =B$+"ERE8GE8AE8A#E8B>D<D ERE8GE8AE8A#E8B>E8"
  72. 720 B2E$=B$+"ERE8GE8AE8A#E8B>D<D @45V6> E>E<E8GE8AE8A#E8B @77ED"
  73. 730 B2F$=B$+"ERE8GE8AE8A#E8B>D<D @41V3> RBBRRBRB<B>BRB<BR>>E8 "
  74. 740 B3$ =B$+"C<C>C8D#ERF <B>CRCD#RA#B >Q4CQ8<CRCD#ERF <B>CRCD#RA#8"
  75. 750 B3E$=B$+"C<C>C8D#ERF <B>CRCD#RA#B R2@29[[(<G>G)<A>AA>A"
  76. 760 B4$ =B$+"Q6 RF#RF#RRR4F#REF#8F# C#F#RF#RRF#R RR>C#<RBAE8 Q8"
  77. 770 B4E$=B$+"Q6 <A8>ARRARGARRREARA  RG#ARRARGARRE>E8ER Q8"
  78. 780 B4F$=B$+"   F#BF#8EF#RF#C#F#RF#A8BE F#BF#8EF#RF#RG#A8B8>C#8"
  79. 790 B4G$=B$+"   A8RAG#8AEG#AA8G#8AE A>A<A8G8AE A>ED8<E8G8"
  80. 800 B4H$=B$+"   A8RAG#8AEG#AA8G#8AE ARRRRRRR  @115Q3V8 DDRDE8G8"
  81. 810 B5$ =B$+"@115Q3V8 E4E4E4E4 E4E4E8<EA>E8D8 Q8"
  82. 820 B5E$=B$+"@115Q3V8 E4E4E8<E>EDREG <E>E8&EDE8<E>E<G>G<B>B8D8 Q8"
  83. 830 B5F$=B$+"@115Q3V8 E4E4E8<E>EDREG <D>D8<E>E8<G>G8<A>A8D>D<E>E Q8"
  84. 840 '
  85. 850 '
  86. 860 P1$= "@1V5O0L16 G4G4G4G4G4G4G4G4"
  87. 870 S1$= "@1V5O0L16 G4G4G4G4G4R4R4R4"
  88. 880 P2$= "@6V6O4L16 RCCRRCRRCRRCRRCR  CRCRRCRRCRRC<CR>CR"
  89. 890 Q2$= "@6V6O4L16 RCCRRCRRCRRCRRC[[C32C32]] CRCRRCRRC<C>RC<CR>CR"
  90. 900 S2$= "@6V6O4L16 RCCRRCRRCRRCRRC[[C32C32]] CRRRRRRRRRRRRRRR"
  91. 910 R2$= "@6V6O4L16 RCCRRCRC<C>RCR<C>CCR RCCRRCRC<C>CRC<CR>[[[CC"
  92. 920 P3$= "@8V4O7L24 (%R9C8%CCR%L9C@6%CCR%R9>C<@8%CCR%L9C )4 %C"
  93. 930 S3$= "@8V4O7L24 (%R9C8%CCR%L9C@6%CCR%R9>C<@8%CCR%L9C )2 %C C8"
  94. 940 P4$= "@12V4O6L16 (RR%R5CRRR%L5CR)4"
  95. 950 S4$= "@12V4O6L16 (RR%R5CRRR%L5CR)2"
  96. 960 BP1$="@9 V0O6L16 R2RRFRRRFR (FFFF])FF]F]F]F]F]]F]]F"
  97. 970 BP2$="@12V7O6L16 R1(%R9CR>%CC<]]%R9CR>%CC<]]) C]>C<]]]C"
  98. 980 SP1$="@11V3O6L16 D1&D1"
  99. 990 '
  100. 1000 'PLAY B4H$,C2H$,C2I$,C2J$,A2G$,A2H$,S1$,S2$,S3$,P4$ : END
  101. 1010 'PLAY E2E$,E2F$,,,,,P1$,P4$,SP1$ : END
  102. 1020 'PLAY ,,,,,,,P1$,BP2$ :  END
  103. 1030 'GOTO 1560
  104. 1040 '
  105. 1050 PLAY     ,    ,    ,,,,P1$,P3$
  106. 1060 PLAY     ,    ,    ,,,,P1$,P3$
  107. 1070 PLAY     ,C1L$,C1R$,,,,P1$,P3$
  108. 1080 PLAY     ,C1E$,C1F$,,,,S1$,S3$
  109. 1090 PLAY B1$ ,C1L$,C1R$,,,,P1$,P2$,P3$
  110. 1100 PLAY B1$ ,C1L$,C1R$,,,,P1$,Q2$,P3$
  111. 1110 PLAY B1$ ,C1L$,C1R$,,,,P1$,P2$,P3$
  112. 1120 PLAY B1E$,C1E$,C1F$,,,,S1$,S2$,S3$
  113. 1130 PLAY B2$ ,C1L$,C1R$,C4L$,C4R$,,P1$,R2$,P3$
  114. 1140 PLAY B2$ ,C1L$,C1R$,C4L$,C4R$,,P1$,R2$,P3$
  115. 1150 PLAY B2$ ,C1L$,C1R$,C4L$,C4R$,,P1$,R2$,P3$
  116. 1160 PLAY B2E$,C1E$,C1F$,C4L$,C4R$,,S1$,R2$,P3$
  117. 1170 PLAY B3$ ,C1L$,C1R$,C4E$,C4F$,,P1$,R2$,P3$
  118. 1180 PLAY B3$ ,C1L$,C1R$,C4E$,C4F$,,P1$,R2$,P3$
  119. 1190 PLAY B3$ ,C1L$,C1R$,C4E$,C4F$,,P1$,R2$,P3$
  120. 1200 PLAY B3E$,C1E$,C1F$,C4E$,C4F$,,P1$,R2$,P3$
  121. 1210 PLAY B2$ ,C1L$,C1R$,C3L$,C3R$,,P1$,R2$,P3$
  122. 1220 PLAY B2$ ,C1E$,C1F$,C3E$,C3F$,,P1$,R2$,P3$
  123. 1230 PLAY B2$ ,C1L$,C1R$,C3G$,C3H$,,P1$,R2$,P3$
  124. 1240 PLAY B2F$,C1E$,C1F$,C3I$,C3J$,,S1$,R2$,S3$
  125. 1250 PLAY B4$ ,C2L$,C2R$,C2C$,A1L$,A1R$,P1$,   ,P4$
  126. 1260 PLAY B4E$,C2E$,C2F$,C2G$,A1E$,A1F$,P1$,   ,P4$
  127. 1270 PLAY B4$ ,C2L$,C2R$,C2C$,A1L$,A1R$,P1$,P2$,P4$
  128. 1280 PLAY B4E$,C2E$,C2F$,C2G$,A1E$,A1F$,P1$,S2$,P4$
  129. 1290 PLAY B4F$,C2L$,C2R$,C2C$,A1L$,A1R$,P1$,R2$,P3$,P4$
  130. 1300 PLAY B4G$,C2E$,C2F$,C2G$,A1E$,A1F$,P1$,R2$,P3$,P4$
  131. 1310 PLAY B4F$,C2L$,C2R$,C2C$,A1L$,A1R$,P1$,R2$,P3$,P4$
  132. 1320 PLAY B4G$,C2E$,C2F$,C2G$,A1E$,A1F$,P1$,R2$,P3$,P4$
  133. 1330 PLAY B4F$,C2L$,C2R$,C2C$,A2L$,A2R$,P1$,R2$,P3$,P4$
  134. 1340 PLAY B4G$,C2E$,C2F$,C2G$,A2E$,A2F$,P1$,R2$,P3$,P4$
  135. 1350 PLAY B4F$,C2L$,C2R$,C2C$,A2L$,A2R$,P1$,R2$,P3$,P4$
  136. 1360 PLAY B4H$,C2H$,C2I$,C2J$,A2G$,A2H$,S1$,S2$,S3$,S4$
  137. 1370 PLAY B5$ ,A3L$,A3R$,    ,    ,,P1$,P4$
  138. 1380 PLAY B5$ ,A3L$,A3R$,    ,C5R$,,P1$,P4$
  139. 1390 PLAY B5$ ,A3L$,A3R$,C5L$,C5R$,,P1$,P4$
  140. 1400 PLAY B5E$,A3L$,A3R$,C5L$,C5R$,,P1$,P4$,BP1$
  141. 1410 PLAY B5$ ,A3E$,A3F$,C5E$,C5F$,,P1$,P4$,SP1$
  142. 1420 PLAY B5$ ,A3G$,A3H$,C5E$,C5F$,,P1$,P4$
  143. 1430 PLAY B5$ ,A3E$,A3F$,C5E$,C5F$,,P1$,P4$
  144. 1440 PLAY B5E$,A3G$,A3H$,C5E$,C5F$,,P1$,S4$
  145. 1450 PLAY B5$ ,A3E$,A3F$,C5G$,C5H$,,P1$,P4$
  146. 1460 PLAY B5E$,A3G$,A3H$,C5G$,C5H$,,P1$,P4$
  147. 1470 PLAY B5$ ,A3E$,A3F$,C5G$,C5H$,,P1$,P4$,P2$
  148. 1480 PLAY B5F$,A3G$,A3H$,C5I$,C5J$,,P1$,P4$,Q2$,BP1$,BP2$
  149. 1490 PLAY C1L$,C1R$,A3L$,A3R$,E1L$,E1R$,P3$,P4$,R2$,SP1$
  150. 1500 PLAY C1E$,C1F$,A3E$,A3F$,E1E$,E1F$,P3$,P4$,R2$
  151. 1510 PLAY C1L$,C1R$,A3L$,A3R$,E1L$,E1R$,P3$,P4$,R2$
  152. 1520 PLAY C1E$,C1F$,A3G$,A3H$,E1G$,E1H$,S3$,S4$,S2$,BP1$
  153. 1530 PLAY E2L$,E2R$,E1L$,E1R$,C1L$,C1R$,P1$,P3$,P4$,R2$,SP1$
  154. 1540 PLAY E2L$,E2R$,E1E$,E1F$,C1E$,C1F$,P1$,P3$,P4$,R2$
  155. 1550 PLAY E2L$,E2R$,E1L$,E1R$,C1L$,C1R$,P1$,P3$,P4$,R2$
  156. 1560 PLAY E2E$,E2F$,    ,E1F$,C1E$,C1F$,P1$,P3$,P4$,R2$,BP1$
  157. 1570 PLAY E2L$,E2R$,    ,,C1L$,C1R$,P1$,P3$,P4$,R2$,SP1$
  158. 1580 PLAY E2L$,E2R$,    ,,    ,C1F$,P1$,P3$,P4$,R2$
  159. 1590 PLAY E2L$,E2R$,    ,,    ,    ,P1$,P3$,P4$,R2$
  160. 1600 PLAY E2E$,E2F$,    ,,    ,    ,P1$,P3$,P4$,R2$
  161. 1610 PLAY     ,    ,    ,,    ,    ,P1$,P3$,P4$,P2$
  162. 1620 PLAY     ,    ,    ,,    ,    ,P1$,   ,P4$,Q2$
  163. 1630 PLAY     ,    ,    ,,    ,    ,P1$,   ,   ,P2$
  164. 1640 PLAY     ,    ,    ,,    ,    ,P1$,   ,   ,Q2$
  165.